home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / edt10.lha / Beispiele / Oberon / Deutsch / Execute_D.edt < prev    next >
Text File  |  1994-08-19  |  277b  |  15 lines
  1. /* ausführen eines Programmes */
  2. OPTIONS RESULTS
  3.  
  4. 'ReqString "Oberon-2: Programm ausführen" "Argumente:"'
  5. PARSE VAR RESULT done args
  6.  
  7. IF done="OK" THEN DO
  8.   'Get PATH'
  9.   path=RESULT||"//"
  10.  
  11.   'Get NAME'
  12.   name=LEFT(RESULT,LENGTH(RESULT)-4)
  13.  
  14.   ADDRESS COMMAND path||name args
  15. END